home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / latex209 / contrib / slatex / lerror.ss < prev    next >
Text File  |  1993-11-07  |  982b  |  37 lines
  1. ;lerror.ss
  2. ;SLaTeX Version 1.99
  3. ;Display and error routines
  4. ;(c) Dorai Sitaram, December 1991, Rice University
  5.  
  6. (define eoln
  7.   (cond ((eq? *op-sys* 'unix) (string #\newline))
  8.       ((eq? *op-sys* 'dos) (string #\return #\newline))
  9.       (else (string #\newline))))
  10.  
  11. (define display*
  12.   (lambda (p . z)
  13.     ;displays the forms in z on port p;
  14.     ;if p is false display to standard-output
  15.     (if p (for-each (lambda (x) (display x p)) z)
  16.     (begin (for-each display z) (flush-output)))))
  17.  
  18. '(enable chez elk schemetoc)
  19. (define lerror
  20.   (lambda z
  21.     ;signal error, display forms in z on console, and collapse
  22.     (display "Error: ")
  23.     (for-each display z)
  24.     (error #f "")))
  25.  
  26. '(disable chez elk schemetoc)
  27. (define lerror
  28.   (lambda z
  29.     (display "Error: ")
  30.     (for-each display z)
  31.     (error "")))
  32.  
  33. (define lwarning
  34.   (lambda z
  35.     ;signal warning, display forms in z on console, but continue
  36.     (display "Warning: ") (for-each display z) (newline)))
  37.